package Infinite::Sequence::Cached;
use base qw{Infinite::Sequence};

our %SEQUENCE_OBJECTS;
our %SEQUENCE_CLASSES;

sub new {
	my( $class ) = @_;
	my $this = $class->SUPER::new();
	$SEQUENCE_OBJECTS{ 0+ $this }->{i} = 0;
	$this
}

sub increment_wrap {
	my( $this ) = @_;
	my $sequence_class = ref $this;
}

1